home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / gnu / othergnu / gnuplot.zoo / demo / surface2.demo < prev    next >
Text File  |  1992-03-02  |  1KB  |  66 lines
  1. set parametric
  2. set samples 50
  3.  
  4. set title "Parametric Sphere"
  5. set urange [-pi/2:pi/2]
  6. set vrange [0:2*pi]
  7. set zrange [-1:1]
  8. set ztics -1.0,0.25,1.0
  9. set view ,,,2.5
  10. splot cos(u)*cos(v),cos(u)*sin(v),sin(u)
  11. pause -1 "Hit return to continue (1)"
  12.  
  13. set view ,,,0.8
  14. replot
  15. pause -1 "Hit return to continue (2)"
  16.  
  17. set view ,,,1.6
  18. replot
  19. pause -1 "Hit return to continue (3)"
  20.  
  21. set view ,,,1.0
  22.  
  23. set title "Parametric Torus"
  24. set urange [0:2*pi]
  25. set vrange [0:2*pi]
  26. splot (1-0.2*cos(v))*cos(u),(1-0.2*cos(v))*sin(u),0.2*sin(v)
  27. pause -1 "Hit return to continue (4)"
  28.  
  29. set title "Parametric Hexagon"
  30. set urange [-1.3:1.3]
  31. set vrange [0:2*pi]
  32. set zrange [-0.6:0.6]
  33. set ztics
  34. splot cos(v)**3*cos(u)**3,sin(v)**3*cos(u)**3,sin(u)**3
  35. pause -1 "Hit return to continue (5)"
  36.  
  37. set title "Parametric Helix"
  38. set samples 100
  39. set urange [0:10*pi]
  40. set vrange [0:2*pi]
  41. set zrange [-0.6:0.6]
  42. splot (1-0.1*cos(v))*cos(u),(1-0.1*cos(v))*sin(u),0.1*(sin(v)+u/1.7-10)
  43. pause -1 "Hit return to continue (6)"
  44.  
  45. set title "Parametric Shell"
  46. set samples 40
  47. set view 50,30,1.0
  48. set urange [0:2*pi]
  49. set vrange [0:2*pi]
  50. set zrange [-3:1.5]
  51. splot cos(u)*u*(1+cos(v)/2),sin(v)*u/2,sin(u)*u*(1+cos(v)/2)
  52. pause -1 "Hit return to continue (7)"
  53.  
  54. #
  55. # Clean up:
  56. #
  57. set noparametric
  58. set dummy x,y
  59. set samples 100
  60. set view 60,30,1,1
  61. set urange [-5:5]
  62. set vrange [-5:5]
  63. set zrange [-10:10]
  64. set auto
  65. set title "" 0,0
  66.